Top 10k strings from Mental Arithmetic (1984)(Griffin Software)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
27 Q$(C)="What is "+
16 (B(C))+"?"
15 (B(C))+"."
5 c(C)=A(C)*B(C):
5 (A(C))+("0"
5 (A(C))+" and "+
4 c(C)=A(C)+B(C):
4 Q$(C)="Work out "+
4 Q$(C)="Find the sum of "+
4 ;"Press Y or N.":
4 (C(C))+"."
4 (B(C))+("0"
4 (A(C))+" x "+
4 (A(C))+" by "+
4 (A(C))+" + "+
3 c(C)=A(C)/B(C):
3 c(C)=A(C)-B(C):
3 Q$(C)="Subtract "+
3 Q$(C)="Multiply "+
3 Q$(C)="Add together "+
3 A(C)-B(C)<1
3 A(C)+B(C)>7
3 (A(C))+"?"
3 (A(C))+" to "+
3 (A(C))+" "+
2 Q$(C)="What is 1/"+
2 C(C)=(A(C)+B(C))*
2 B(C)/A(C)-
2 B(C)-A(C)<1
2 A(C)-B(C)<0
2 A(C)+B(C)>3
2 A$(C)=" p"
2 ;" ":
2 (B(C)/A(C))=0
2 (B(C))+"p?"
2 (B(C))+"."+
2 (B(C))+" x "+
2 (B(C))+" from "+
2 (B(C))+" equal to?"
2 (A(C))+"/"+
2 (A(C))+"."
2 (A(C))+", "+
2 (A(C))+" from "+
2 (A(C))+" divided by "+
2 (A(C))+" - "+
1 logo
1 j$="CLASS VERSION"
1 file _u
1 d=D1+(L-l)
1 cmtest
1 c(C)=B(C)/A(C):
1 c(C)=B(C)-A(C):
1 c(C)=A(C)^B(C):
1 c(C)=A(C)+B(C)+C(C):
1 c(C)=(B(C)*C(C))/(A(C)+B(C))
1 c(C)=(A(C)/100
1 c(C)=(A(C)*C(C))/(A(C)+B(C)):
1 ``add A,B;A+B<19``
1 ``END OF QUESTION ROUTINES``**************************
1 ``DIV A IN RATIO``
1 ``DECIMAL/10,100,1000``
1 ``B-A,B<20
1 ``B-A DECIMAL``
1 ``APPRX TO WHOLE N``
1 ``APPRX TO SIG.FIG``
1 ``APPRX TO DEC.PL.``
1 ``ADDING MONEY``
1 ``ADD DECIMAL``
1 ``A/B,NO REMAINDER``
1 ``A/B OF C``
1 ``A-B,With carry``
1 ``A+B With Carry``
1 ``A*B,B>10``
1 ``A*10,100,1000``
1 ``A TO A POWER``
1 ``A DECIMAL * 10,100,1000``
1 ``1/A OF B``
1 ``% OF MONEY '``
1 T$="third"
1 T$="quarter"
1 SUBROUTINE
1 SET UP OF ARRAY
1 SET TEST QUESTIONS
1 SET ARRAYS AND VARIABLES
1 SELECTION OF TEST PARAMETERS
1 Recording
1 Q$(C)="What is the sum of "+
1 Q$(C)="What is the change from"+
1 Q$(C)="What is the change from `1,"+
1 Q$(C)="What is a "+T$+" of "+
1 Q$(C)="Take "+
1 Q$(C)="How much is left of `"+
1 Q$(C)="How many times does "+
1 Q$(C)="Find the sum of `"+
1 Q$(C)="Find the product of "+
1 Q$(C)="Find "+
1 Q$(C)="Divide "+
1 Q$(C)="Add `"+
1 Q$(C)="Add "+
1 Q$(C)=" `"+
1 Q$(C)=" "+
1 M(R)=M(R)-1
1 J(C)=D(B(C)-P4-1
1 FINAL MARK AND TIME
1 END****************************************************
1 Display Instructions
1 DISPLAY QUESTIONS AND INPUT ANSWERS
1 Created with Ramsoft MakeTZX
1 C(C)=((A(C)+B(C))*
1 B(C)=B(C)/p
1 B(C)-A(C)>9
1 A(C)=A(C)/p:
1 A(C)+B(C)>99
1 A(C)+B(C)>29
1 A(C)+B(C)>19
1 A(C)+B(C)>10
1 A(C)+B(C)<29
1 A$(C)=" p"
1 ;"tell you when it is READY."
1 ;"of these parameters?":
1 ;"moments. The computer will "
1 ;"UPPER CASE";
1 ;"UP THE TEST. "
1 ;"Type in file name in ";
1 ;"The Test Parameters are- "
1 ;"That completes the test.Do you wish to do another test?":
1 ;"TOPIC LEVEL ";L
1 ;"THE COMPUTER IS NOW MAKING "
1 ;"Stop and rewind tape"
1 ;"SAVE""file"" LINE 2"
1 ;"Question ";aa:
1 ;"Question ";C:
1 ;"Please wait a moment.":
1 ;"PLEASE WAIT";
1 ;"Now press a key to review the questions,together with the answers.":
1 ;"NUMBER OF QUESTIONS ";N
1 ;"MENTAL ARITHMETIC TEST ":
1 ;"Load main program"
1 ;"Leave tape running"
1 ;"INSTRUCTIONS":
1 ;"Enter the number of the question that you wish to see again.":
1 ;"Do you wish to change any"
1 ;"Do you want instructions?":
1 ;"Do you wish to see any particular question again?":
1 ;"DEGREE OF DIFFICULTY ";D1
1 ;"Answer: ";A$(aa):
1 ;"Answer: ";A$(C):
1 ;" will display the message:-"
1 ;" up the test which may take a"
1 ;" the test(10 to 20 questions)."
1 ;" the TOPIC LEVEL,the DEGREE of"
1 ;" question on the screen."
1 ;" key you can display each"
1 ;" few moments. After which it "
1 ;" The computer will then make"
1 ;" If you have not read the User":
1 ;" DIFFICULTY and the LENGTH of"
1 ;" You will be asked to select"
1 ;" Then by pressing the ENTER"
1 ;" That will complete the test."
1 ;" LOADING PROGRAM
1 ;" At the end of the test the computer will display the questions in order, this time with their answers.After this you will be given the chance to look at any questions and answers again."
1 ;" This will take a few "
1 ;" Choose the topic level by pressing a number between 1 and 7.":
1 ;" Choose the number of questions by entering a number between 10 and 20.":
1 ;" Choose the degree of difficulty by pressing a number between 1 and 3.":
1 ;" "
1 ;" "
1 +"the nearest whole number?"
1 +"significant figure"+("s"
1 +"share?":
1 +"place"+("s"
1 +"if you spend "+
1 +"if I spend `"+
1 +" plus "+
1 +" What is the smaller part?"
1 +" How much is the smaller"+
1 ***QUESTION TYPE SUBROUTINES****
1 ***CORE***
1 ********************************
1 **** str ****
1 **** nin ****
1 **** cls ****
1 **** cll ****
1 )="9600000000000000000000000"
1 )="3273000000000000000000000"
1 )="0132540000000000000000000"
1 )="0011223420000000000000000"
1 )="0011112212222000000000000"
1 )="0010011211111221112100000"
1 )="0010010101111111111121111"
1 ))))+" to `"+
1 ))))+" if you spend `"+
1 ))))+" and"+
1 (l$(L,C))=0
1 (l$(L,C))*N/15
1 (a(c))+("0"
1 (C(C))+" is shared in the ratio"+
1 (C(C))+" is divided in the ratio"+
1 (C(C))+" equal"+
1 (B(C)/p)=0
1 (B(C)-P4)>1
1 (B(C))+"?":
1 (B(C))+" x `"+
1 (B(C))+" together."
1 (B(C))+" times `"+
1 (B(C))+" times "+
1 (B(C))+" of "+
1 (B(C))+" go"+
1 (B(C))+" decimal"+
1 (B(C))+" and "+
1 (B(C))+" - "+
1 (B(C))+" + "+
1 (B(C)) +" and "+
1 (A(C)/p)=0
1 (A(C)/B(C)+.5
1 (A(C))+"p"+
1 (A(C))+"p multiplied by "+
1 (A(C))+":"+
1 (A(C))+"% of `"+
1 (A(C))+" to"+
1 (A(C))+" to the power "+
1 (A(C))+" to the nearest "+
1 (A(C))+" times "+
1 (A(C))+" squared?"
1 (A(C))+" of "+
1 (A(C))+" minus "+
1 (A(C))+" equal to?"
1 (A(C))+" cubed?"
1 (A(C))+" and"+
1 ((A(C)/B(C))*C(C)+.01
1 ##CHANGE FROM `A##
1 ##A/10,100,1000##
1 "clear (y/n) ?";q$
1 "address ? ";x
1 "Filename",a$
1 " this program."
1 " should before proceeding with":
1 " package booklet, then you"
1 " Notes in the accompanying":
1 Q
1 "
1 1
1 "